perm filename EDD.TEX[TEX,DEK]1 blob sn#427784 filedate 1979-03-31 generic text, type T, neo UTF8
\input basic % Delete this line if you merge BLAISE output with another .TEX file
\input algol % This file defines the necessary macros and font \:t
{\ragged1000000 \jpar10000 \setcount7\Tbb\1 % Beginning BLAISE output:
\2$\\{pack}(\\{unp},\451,\45\\{fname}.\\{name})$;
\2\&{end};
\3\2\&{begin} \0$\\{cr}\mathrel:=\\{succ}(\\{succ}(\\{succ}(\\{succ}(\\{succ}(\\{succ}(\\{succ}(\\{succ}(\\{succ}(\\{succ}(\\{succ}(\\{succ}(\\{succ}(\\{first}(\\{cr}))))))))))))))$;
\0$\\{ff}\mathrel:=\\{succ}(\\{succ}(\\{succ}(\\{succ}(\\{succ}(\\{succ}(\\{succ}(\\{succ}(\\{succ}(\\{succ}(\\{succ}(\\{succ}(\\{first}(\\{cr})))))))))))))$;
\0$\\{lf}\mathrel:=\\{succ}(\\{succ}(\\{succ}(\\{succ}(\\{succ}(\\{succ}(\\{succ}(\\{succ}(\\{succ}(\\{succ}(\\{first}(\\{cr})))))))))))$;
\0$\\{instack}.\\{inbuf}\mathrel:=1$;
\0$\\{writeln}(\\{tty})$;
\0$\\{write}(\\{tty},\45\.{'!\ Please\ type\ the\ name\ of\ the\ input\ file:'})$;
\0$\\{writeln}(\\{tty})$;
\0$\\{break}$;
\0$\\{reset}(\\{ter\_in},\45\.{'foobartty'},\450,\450,\45\.{'tty\ \ \ '})$;
\0$\\{ter\_inputln}$;
\0$\\{scanfilename}$;
\ddt
\2\1\&{with} $\\{fname}$ \&{do}
\0$\\{reset}(\\{f\_in},\45\\{name})$\3
;
\2$\\{writeln}(\\{tty})$;
\0$\\{write}(\\{tty},\45\.{'Now\ the\ output\ file:'})$;
\0$\\{writeln}(\\{tty})$;
\0$\\{break}$;
\0$\\{reset}(\\{ter\_in},\45\.{'foobartty'},\450,\450,\45\.{'tty\ \ \ '})$;
\0$\\{ter\_inputln}$;
\0$\\{scanfilename}$;
\2\1\&{with} $\\{fname}$ \&{do}
\0$\\{rewrite}(\\{f\_out},\45\\{name})$\3
;
\2$\\{eoff}\mathrel:=\\{false}$;
\0$\\{writeln}(\\{tty})$;
\0$\\{rewrite}(\\{ter\_out},\45\.{'foobartty'},\450,\450,\45\.{'tty\ \ \ '})$;
\2\1\&{with} $\\{instack}$ \&{do}
\2\1\&{while} $\mathop{\&{not }\!}\\{eoff}$ \&{do}
\2\&{begin} \0$\\{inputln}$;
\2\1\&{for} $\\{i}\mathrel:=\\{inbuf}\mathrel{\&{to}}\\{ptr}-2$ \&{do}
\2\&{begin} \0$\\{ter\_out}{\up}\mathrel:=\\{chars}[\\{i}]$;
\0$\\{put}(\\{ter\_out})$;
\2\&{end}\3
;
\2\1\&{if} $\\{ord}(\\{chars}[\\{ptr}-1])<>13$ \&{then}
\2\&{begin␈`\0$\\{ter\_out}{\up}\mathrel:=\\{chars}[\\{ptr}-1]$;
\0$\\{put}(\\{ter\_out})$;
\2\&{end}\3
;
\2$\\{break}(\\{ter\_out})$;
\0$\\{reset}(\\{ter\_in},\45\.{'foobartty'},\450,\450,\45\.{'tty\ \ \ '})$;
\2\1\&{if} $\\{ter\_in}{\up}<>\\{cr}$ \&{then}
\2\&{begin} \0$\\{ter\_out}{\up}\mathrel:=\\{cr}$;
\0$\\{put}(\\{ter\_out})$;
\0$\\{break}(\\{ter\_out})$;
\0$\\{get}(\\{ter\_in})$;
\0$\\{ter\_inputln}$;
\2\&{end}\3
;
\2\1\&{for} $\\{i}\mathrel:=\\{inbuf}\mathrel{\&{to}}\\{ptr}-1$ \&{do}
\2\&{begin} \0$\\{f\_out}{\up}\mathrel:=\\{chars}[\\{i}]$;
\0$\\{put}(\\{f\_out})$;
\2\&{end}\3
;
\2\1\&{case} $\\{brchar}$ \&{of}
\2\10: \3;
\2\110: \1\&{begin} \0$\\{f\_out}{\up}\mathrel:=\\{lf}$;
\0$\\{put}(\\{f\_out})$;
\2\&{end}\3\3;
\2\112: \1\&{begin} \0$\\{f\_out}{\up}\mathrel:=\\{ff}$;
\0$\\{put}(\\{f\_out})$;
\2\&{end}\3\3;
\2\&{end}\3;
\2\&{end}\3
\3
;
\2$\\{break}(\\{f\_out})$;
\2\1\&{with} $\\{fname}$ \&{do}
\0$\\{reset}(\\{f\_out},\45\\{name})$\3
;
\2\&{end}.

\par} % end of BLAISE output